"0","dissimColors <- gray.colors(30, start = 0.9, end = 0.1, gamma = 2.2, alpha = NULL)"
"0","ages <- as.numeric(rownames(scpdSM))"
"0","ageColors <- rainbow(length(ages), start=0, end=4/6)"
"0","heatmap(scpdSM, col=dissimColors, distfun=function(m) vegdist(m,method=""bray""), hclustfun=function(m) hclust(m, method=""average""), RowSideColors = ageColors)"
